home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 138
/
138.d81
/
q&d wp db
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
709b
|
30 lines
10 dv=peek(186):ifdv<8thendv=8
20 nf=3:c=1
30 fori=1tonf:readm$(i):next
40 data"[212]itle"
50 data"[193]uthor"
60 data"[196]ate"
70 s$=" "
80 p$="..............................................."
90 print"[147][159]"
100 fori=1tonf:printitab(4)m$(i):print:next
110 geta$:ifa$<"1"ora$>mid$(str$(nf),2)then110
120 m=val(a$):poke214,m*2:print:printtab(4)""m$(m)
130 poke214,2+2*nf:print:printtab(4);
140 input"[211]tring";h$:print
150 open2,dv,2,"books 95,r,s":open4,3,7
160 fori=1tonf:input#2,b$(i)
170 ifst<>0thenclose2:close4:goto260
180 next
190 ifleft$(b$(m),len(h$))<>h$then240
200 print#4,str$(c)".";
210 print#4,left$(s$,4-len(str$(c)))b$(1);
220 print#4,left$(p$,40-len(b$(1)))b$(2);
230 print#4,left$(p$,26-len(b$(2)))b$(3)
240 c=c+1
250 goto160
260 print" [196]one!"
270 geta$:ifa$=""then270
280 goto90
10000 d=peek(186):n$="q&d wp db":open15,d,15,"s0:"+n$:close15:saven$,d:end